home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / AddOn / imagefx.mod < prev    next >
Encoding:
Text File  |  2000-01-26  |  836 b   |  41 lines
  1. /* $VER: HTMLEXT Modul: imagefx.mod V 0.1.5 by Juan Manuel Wehrli 1999
  2.    Voraussetzung: ImageFX 3.x oder besser
  3.  */
  4.  
  5. if ~show("L",rexxreqtools.library) then do
  6.     call addlib("rexxreqtools.library",0,-30,0)
  7. end
  8. if ~show("L",rexxtricks.library) then do
  9.     call addlib("rexxtricks.library",0,-30,0)
  10. end
  11.  
  12. NL = '0a'x
  13.  
  14. PARSE ARG befehl file
  15. OPTIONS RESULTS
  16. ADDRESS COMMAND
  17.  
  18. if befehl = OPENNEW then do
  19.     if ~show('P','IMAGEFX.1') then do
  20.         'c:WBrun <>NIL: ImageFX3:ImageFX'
  21.         'sys:rexxc/WaitForPort IMAGEFX.1'
  22.     end
  23.     file = STRIP(file)
  24.     ADDRESS IMAGEFX.1
  25.     ScreenToFront
  26.     LOADBUFFER '"' || file || '"' New
  27.  
  28. end
  29.  
  30. if befehl = OPENNEWS then do
  31.     if ~show('P','IMAGEFX.1') then do
  32.         'c:WBrun <>NIL: ImageFX3:ImageFX'
  33.         'sys:rexxc/WaitForPort IMAGEFX.1'
  34.     end
  35.     ADDRESS IMAGEFX.1
  36.     ScreenToFront
  37.     file = STRIP(file)
  38.     LOADBUFFER '"' || file || '"' New
  39. end
  40.  
  41.